﻿Public Class Desktop1080

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Launcher.Close()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        TimeBTN.Text = DateTime.Now.ToString()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles shtdwnBTNmain.Click
        Launcher.Close()
    End Sub

    Private Sub Desktop1080_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub

    Private Sub TimeBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimeBTN.Click
        If Button3.Text = "Date & Time" Then
            TimeApp.Show()
            TimeApp.Visible = True
            Button3.Text = "Date & Time"
            Button3.Visible = True
        Else
            If Button3.Visible = True Then
                TimeApp.Show()
                TimeApp.Visible = True
                Button5.Text = "Date & Time"
                Button5.Visible = True
            Else
                TimeApp.Show()
                TimeApp.Visible = True
                Button3.Text = "Date & Time"
                Button3.Visible = True
            End If
        End If
        
    End Sub

    Private Sub shtdwnBTNstart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles shtdwnBTNstart.Click
        shtdwnBTNmain.PerformClick()
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Panel1.Visible = False Then
            Panel1.Visible = True
        Else
            Panel1.Visible = False
        End If
    End Sub

    Private Sub Button1_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter

    End Sub

    Private Sub Button1_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Button3.Text = "Date & Time" Then
            If TimeApp.Visible = True Then
                TimeApp.Visible = False
            Else
                TimeApp.Visible = True
            End If
        End If
        If Button3.Text = "WebXplorer" Then
            If WebXplorer.Visible = True Then
                WebXplorer.Visible = False
            Else
                WebXplorer.Visible = True
            End If
        End If
    End Sub

    Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Button3.Text = "WebXplorer" Then
            WebXplorer.Show()
            WebXplorer.Visible = True
            Button3.Text = "WebXplorer"
            Button3.Visible = True
        Else
            If Button3.Visible = True Then
                WebXplorer.Show()
                WebXplorer.Visible = True
                Button5.Text = "WebXplorer"
                Button5.Visible = True
            Else
                WebXplorer.Show()
                WebXplorer.Visible = True
                Button3.Text = "WebXplorer"
                Button3.Visible = True
            End If
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If Button5.Text = "Date & Time" Then
            If TimeApp.Visible = True Then
                TimeApp.Visible = False
            Else
                TimeApp.Visible = True
            End If
        End If
        If Button5.Text = "WebXplorer" Then
            If WebXplorer.Visible = True Then
                WebXplorer.Visible = False
            Else
                WebXplorer.Visible = True
            End If
        End If
    End Sub
End Class